home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / comserv.exe / COMSLIST.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-03-13  |  8.8 KB  |  223 lines
  1. ComSList
  2. CompuServe Zip File List
  3. Form1*
  4. fraList
  5. lblFileName
  6.     File Name
  7. lblCompServeID
  8. CompuServe ID
  9.     lblAuthor
  10. lstFile
  11. cmdDone
  12. !    menSearch
  13. Search
  14. menKeywords
  15. Search by Keywords
  16. menCompuServeID
  17. Search by CompuServe ID
  18. $    menAuthor
  19. Search by Author
  20. menCompany
  21. Search by Company
  22. menSort
  23. menFileSort
  24. Sort by File Name
  25. (    menIDSort
  26. Sort by CompuServe ID
  27. menAuthorSort
  28. Sort by Author
  29. menCompanySort
  30. Sort by Company
  31. menTitleSort
  32. Sort by Title
  33. List1_Click
  34. cmdDone_Click
  35. ComSList
  36. Form_Click
  37.     Form_Loadu
  38. LoadList
  39. IndexC
  40. giFileNo
  41. gsFName
  42.     giFileLenT
  43. gComServeRec
  44. lstFile
  45. FileName
  46.     lstAuthor
  47. Author
  48. lstCompany
  49. Company1
  50. lstCompuServeIDi
  51. CompuServeID
  52. LoadRecord
  53. gFNameI
  54. gFileNo
  55. gFileLen
  56. OneRec
  57. gModRec>
  58. lstFile_Click
  59. lstAuthor_Click
  60. lstCompany_Click_
  61. lstCompuServeID_Click
  62.     ListIndex
  63. HighlightLine
  64. lblAuthor_Click
  65. BuildString
  66.     TheString~
  67. TempStrT
  68. TheChar
  69. IsPrinte
  70. lstFile_DblClick
  71. giIndex
  72. menKeywords_Click
  73. Label1_Click
  74. FindKeywords
  75. OpenFile
  76.     WhichList
  77. BuildTitleString
  78. BuildZipString
  79. gWhichListF
  80. Title^
  81.     lblAuthor
  82. Caption
  83. fraList_DragDropK
  84. Source 
  85. SearchFile
  86. gSearch
  87. gKeyword
  88. WhichSearch
  89. Prompt
  90. resultp
  91. ThenlblAuthor!
  92. giFileN
  93. sSearchF
  94. Keywords
  95. Found
  96. sFind
  97.     ClearList
  98.     ListCount2
  99. menCompuServeID_Clickx
  100. gCompuServeIDR
  101. menCompany_Click
  102. gCompany
  103. menAuthor_Click
  104. gAuthor
  105. BuildFileKey
  106. glArrayIndex
  107. gsZipNameArrayk
  108. glIndexArray
  109. GetFileIndex
  110.     sFileName)
  111. GetFileName]
  112. sTempStr
  113. giNoOfRecs.
  114. menSearch_Click
  115.     gSortData
  116. RecNo
  117. menFileSort_Click3
  118. gSORTSTRUCTURE
  119. TempStructG
  120.     gTempData
  121. Text1
  122.     QuickSort
  123. MousePointer
  124. Bottom\
  125. Choice
  126. Tradeg
  127. gSort
  128.     gFileName
  129.     gFileSort
  130. EndLoop0
  131. menIDSort_Clickn
  132. gCompuServeSortV
  133. menAuthorSort_Click(
  134. gAuthorSort~
  135. menCompanySort_Click
  136. gCompanySort
  137. menTitleSort_Click
  138. gTitleSort
  139.     menAuthor
  140. Enabled
  141. menCompany
  142. menTitle
  143. False
  144. menAuthorSort
  145. menCompanySort
  146. menTitleSort
  147. fIndexO
  148. flIndex
  149. UpdateRecord
  150. ListItem
  151.     UpdateRow
  152. lstList
  153. ListInde
  154. cmdDone_Click
  155. Form_Load
  156. LoadRecord
  157. Find the record position in the file.e
  158. Only try to get the record if it was found. 
  159. This record already exists so let the other routines know.
  160. lstFile_DblClick
  161. menKeywords_Click
  162. LoadList
  163. Reset the gSortData array index.
  164. Reset the index for the file.t
  165. Build the gSortData array.
  166. Reset the string to empty.
  167. Build the right list.t
  168. ZipList 
  169. Author, Company"
  170. TitleList 
  171. Title"
  172. BuildZipString
  173. Return the string FileName, CompuServeID, Author, Company.
  174. This string is used for the zip file list.
  175.                 
  176. BuildTitleString
  177. Returns a string with the FileName, CompuServeID, and Title.
  178. This is the string that is used with the title list.
  179. SearchFile
  180. Reset the key index stuff.
  181. Just to setup the prompt for the input box.x
  182. Keyword:
  183. CompuServe ID:
  184. Author:
  185. Company:
  186. Get the string to find. 
  187. Keywords must be uppercase.d
  188. Begin the search.r
  189. Clears the list box.
  190. Get the search string.
  191. Search for it.
  192. Was it found?i
  193. Add it to the key index.
  194. Rebuild the list box for displaying the records.
  195. ZipList
  196. Author, Company"
  197. TitleList
  198. Title"
  199. ClearList
  200. Empties the list box. 
  201. menCompuServeID_Click
  202. menCompany_Click
  203. menAuthor_Click
  204. QuickSort
  205. This routine is modified from VBSORT uploaded by Nelson Ford.F
  206. It is a quick sort routine.t
  207. Once gSortData array is sorted the list box is rebuilt.u
  208. Build the right list.t
  209. ZipList 
  210. TitleLista
  211. lstFile.RemoveItem 0
  212. Trade
  213. Used with quicksort.  Just swaps the array elements.
  214. Choice
  215. This is a routine to make the quicksort more generic.e
  216. If you want to add more sorts than add more items to the gSortData type.
  217. Add the new items here and return them.t
  218. menFileSort_Click
  219. menIDSort_Click
  220. menAuthorSort_Click
  221. menCompanySort_Click
  222. menTitleSort_Click
  223.